home *** CD-ROM | disk | FTP | other *** search
/ Pascal Super Library / Pascal Super Library (CW International)(1997).bin / STRINGS / TPSTR7 / EXAM01.PAS next >
Pascal/Delphi Source File  |  1993-03-17  |  3KB  |  70 lines
  1. Program Exam01;
  2.  
  3. {**************************************************************************}
  4. {                                                                          }
  5. { Ce programme démontre les possibilités de ChrDel et ChrDel_.             }
  6. {                                                                          }
  7. {**************************************************************************}
  8.  
  9. Uses
  10.   TpStr;
  11.  
  12. {  ----------------------------------------------------------------------  }
  13. {  Procedure   ChrDel (Var S: String;Match: Char);                         }
  14. {  ----------------------------------------------------------------------  }
  15. {                                                                          }
  16. {  Effet     : Détruit tous les caractères de <S> égaux à <Match>.         }
  17. {  Usage     : Chaîne pascal.                                              }
  18. {                                                                          }
  19. {  Vitesse   : 21700/s                                                     }
  20. {                                                                          }
  21. {  ----------------------------------------------------------------------  }
  22.  
  23. Var
  24.   S1 ,
  25.   S2 : String;
  26.  
  27. Procedure Test1;
  28. Begin
  29.   S1 := '   Je vais effacer tous les blancs ';
  30.   S2 := '1,234,567,890.00';
  31.   ChrDel (S1,' ');
  32.   ChrDel (S2,',');
  33.   ChrDel (S1,'Z');
  34.   ChrDel (S2,'0');
  35. end;
  36.  
  37. {  ----------------------------------------------------------------------  }
  38. {  Function    ChrDel_(Str: String;Match: Char): String;                   }
  39. {  ----------------------------------------------------------------------  }
  40. {                                                                          }
  41. {  Effet     : Détruit tous les caractères de <S> égaux à <Match>.         }
  42. {  Usage     : Chaîne pascal.                                              }
  43. {                                                                          }
  44. {  Vitesse   : 19500/s                                                     }
  45. {                                                                          }
  46. {  Note      : Identique à ChrDel, mais c'est ici une fonction donc <Str>  }
  47. {              n'est pas modifié.                                          }
  48. {  ----------------------------------------------------------------------  }
  49.  
  50. Procedure Test2;
  51. Begin
  52.   S1 := '   Je vais effacer tous les blancs ';
  53.   S2 := ChrDel_ (S1,' ');
  54.   S2 := ChrDel_ (S1,'Z');
  55.   S2 := '1,234,567,890.00';
  56.   S1 := ChrDel_ (S2,',');
  57.   S1 := ChrDel_ (S2,'0');
  58. end;
  59.  
  60. Var
  61.   i: Integer;
  62. Begin
  63.   For i := 1 to 10000 do
  64.     Begin
  65.       Test1;
  66.       Test2;
  67.     End;
  68. end.
  69.  
  70. { -------------------------------------------------------------------------}